home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATHEMAT / 1769.ZIP / PICOM.FOR < prev    next >
Text File  |  1987-02-22  |  943b  |  24 lines
  1.     parameter (ntot=20000, nvar=200, nterm=2500, nch=15,
  2.      +   nder=70, ntott=ntot/2, ntermt=nterm/2, mitay=9,
  3.      +   ninch=8000, ninl=180, nchpl=127, nlab=10, ndind=9)
  4.     implicit integer*2 (i-n)
  5.     integer*4 itn,itd,jtn,jtd
  6.     integer*4 itime,itbeg
  7.     character*1 ha,hn,hc,a,ap,ainpl,pl,pv
  8.     common/c/nd,nv,ns,np,nt,line,maxe,maxnt,maxite,lintot
  9.      + ,nb,ndump,lines,linret,itetop,labels,minns,idflg
  10.      + ,itime,itbeg
  11.     common/ch/ha(26),hn(10),hc(26),a(nchpl),ap(nchpl)
  12.      + ,ainpl(ninch),pl(nch,nlab),pv(nch,nvar)
  13.     common/int1a/ivn(ntot)
  14.     common/int1b/ivp(ntot)
  15.     common/int1c/jvn(ntott)
  16.     common/int1d/jvp(ntott)
  17.     common/int4a/linlab(nlab),ipl(nlab),ipv(nvar),idtab(ndind,nvar)
  18.      + ,inpba(ninl),inpea(ninl),ios(nvar),iosi(nvar)
  19.      + ,ider(3,nder),isb(nvar),ise(nvar)
  20.     common/int4b/itb(nterm),ite(nterm)
  21.     common/int4c/jtb(ntermt),jte(ntermt)
  22.     common/int4d/itn(nterm),itd(nterm)
  23.     common/int4e/jtn(ntermt),jtd(ntermt)
  24.